home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / merlin / rexx / secureed.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-12  |  2KB  |  81 lines
  1. /* RUN "rx MCP:rexx/SecureEd.rexx %n %i"   */
  2. /* Only start programs when correct password is given within 3 tries */
  3.  
  4. Arg node_number ID                     /* node we were run from, Object ID */
  5. Host = 'MCPREXX.'node_number           /* the Trion MCP Arexx port */
  6. Options results
  7. Address value host
  8. options failat 15
  9.  
  10.  
  11. /* say "node: "node_number */
  12. if node_number = "" then do
  13.    say "error .. rexx script not started with %n on command line"
  14.    exit 1
  15. end
  16.  
  17. if ID = "" then do
  18.    say "error .. rexx script not started with %i or ID on command line"
  19.    exit 2
  20. end
  21.  
  22.  
  23. if ID = 10 then do        /* StringGadget */
  24.    ReadString "ID 10"
  25.    string = result
  26.  
  27.    GetReg "0"
  28.    tries = result
  29.  
  30.    if tries < 3 then do
  31.       tries = tries + 1
  32.       SetReg "reg 0 value" tries          /* increase number of tries */
  33.  
  34.       if string = "test" then do          /* <-- here is the password !!! */
  35.          SetReg "reg 1 value 1"           /* Unlock the button(s)         */
  36.  
  37.          WriteString "ID 10 STRING ************" /* Erase correct password in stringgadget */
  38.          WriteString "ID 11 STRING    access granted"   /* Notify User */
  39.       end
  40.       else do
  41.          /* WriteString "ID 11 STRING wrong" 3 - tries "left" */
  42.          if tries = 1 then  WriteString "ID 11 STRING wrong, 2 tries left"
  43.          if tries = 2 then  WriteString "ID 11 STRING wrong, 1 try left"
  44.          if tries = 3 then  WriteString "ID 11 STRING wrong, no tries left"
  45.       end
  46.    end
  47.    else do
  48.       WriteString "ID 11 STRING     Access denied"
  49.       Pause 100
  50.       Quit
  51.    end
  52. end
  53.  
  54.  
  55. if ID = 12 then do        /* Edit button , only start when access */
  56.    GetReg "1"
  57.    access = result
  58.    if access = 1 then do
  59.       Address command 'dh1:software/dtp_tekst/ced'
  60.    end
  61. end
  62.  
  63.  
  64. if ID = 13 then do        /* DirWork button , only start when access */
  65.    GetReg "1"
  66.    access = result
  67.    if access = 1 then do
  68.       Address command 'DirWork'
  69.    end
  70. end
  71.  
  72.  
  73.  
  74. exit 0                         /* einde programma */
  75.  
  76.  
  77.  
  78. test:          /*  een functie: 'call test' */
  79. return 0
  80.  
  81.